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Storing Data on Cassette 
WBB 1/82 

A data file is a string of bytes stored on magnetic media independent of any program. 

The ATARI 410 Program Recorder stores data on standard audio cassette tapes. The 410 
Recorder is called a sequential device because files are distinguished only by their physical 
location on the tape. Proper positioning of the tape is crucial to insure dependable 
operation. For this reason, the recommended procedure is to store only one file on each 
side of a tape. Record the file immediately after the tape leader. The data is transferred 
over the serial bus to the 410 Recorder at the rate of 600 bits/second or 60 
characters/second. The storage capacity of a tape is roughly 1000 characters/minute. 
Therefore a 60 minute tape would allow storage of about 30,000 bytes on each side. 

All data files on tape consist of three sections. There is a 20 second leader of mark tone, 
followed by any number of data blocks consisting of a pre-record write tone (PRWT), 4 
control bytes, 128 data bytes, and a post-record gap (FRG). Finally, there is an end-of-file 
mark. Each of these sections is audible through the TV speaker during data transmission. 
The procedure for creating a data file on the 410 Recorder from BASIC is to do an OPEN, a 
series of outputs (PRINT #N| or PUT #N), and a CLOSE. 

The OPEN command establishes a channel from the token file in RAM to the 410 Recorder. 
There are eight channels in the system numbered 0-7. The OS uses 0,6,7 at various times so 
you should use 1-5. The correct syntax for the write mode is? OPEN #1,8,0,"CJ". When this 
command is executed, the keyboard buzzes twice to remind you to position the tape and 
engage 2 keys (PLAY and RECORD) on the 410 Recorder. You need to acknowledge this 
action by pressing any key on the keyboard (RETURN). The OS then writes 20 seconds of 
mark tone. It does not automatically shut off the cassette motor. The motor is shut off 
only after a data block is written on the tape. This is not a problem if all of the data is 
written out immediately after the file is opened. 

The output commands, PRINT #N and PUT #N, transfer data from the token file to the 
buffer for the tape. When the buffer fills up with 128 bytes, the OS writes a data block to 
the tape, turns off the motor, and clears the buffer. Two types of I/O can be used to write 
data to a file, character I/O or record I/O. 

Character I/O means that you write data one byte at a time with none of the values 
interpreted as control characters. The statement PUT #N,X transfers one ASCII byte to 
the data file. 

Record I/O means that you write data one field at a time with the End of Line (EOL) 
character (ASCII 155) used to delimit the end of each field. The EOL character is 
automatically generated by the PRINT #N statement. If one field is transferred with each 
PRINT #NJ statement, all fields will be properly separated. The syntax of the PRINT 
statement should include a semicolon and not a comma. A comma is interpreted as a tab, so 
10 blank spaces would be inserted in front of your data. The following statements transfer 
10 fields to a data file. 

DIM NAME*(16) 

OPEN #1,8»0,"CJ" 

FOR 1*1 TO 5 

PRINT "NAME..." 5 JINPUT NAME* 

PRINT "AGE..."; JINPUT AGE 
PRINT #1JNAME* 

PRINT #1 JAGE 
NEXT I 
CLOSE #1 

The CLOSE command writes the current buffer as the last data block and then writes the end 
of file mark to the tape. 
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The procedure for reading the data from a tape data file from BASIC is do an OPEN, a series 
of inputs (INPUT #N or GET #N)» and a CLOSE* 

The OPEN command establishes a channel to the 410 Recorder. The correct syntax for the 
read mode isJ OPEN #l,4,0,"C; n . When this command is executed, the keyboard buzzes once 
to remind you to position the tape and engage one key (PLAY) on the 410 Recorder. 
Acknowledge this action by pressing any key on the keyboard (RETURN). The OS turns on 
the cassette motor and reads past the mark tone. It does not shut off the tape motor. The 
motor is shut off only after a data block has been read from the tape. This should never be 
a problem if you open the tape file only when you are ready to read the data from it. 

The data should be read from the file in the same fashion that it was written to the file, 
record or character I/O. Character I/O reads one byte at a time with none of the values 
being interpreted as control codes. The GET #1,X transfers one ASCII byte from the data 
file to the variable X. 

Record I/O reads one field at a time with EOL (ASCII 155) used to delimit the end of each 
field. Many fields can be transferred with each INPUT #N statement. The following 
statements transfer 10 fields from the data file. 


DIM NAME*(16) 

OPEN #1,4,0, M C:" 

FOR 1=1 TO 5 
INPUT #1, NAMES, AGE 
PRINT NAMES, AGE 
NEXT I 
CLOSE #1 



There are three ways to read all the data from the file and exit without an error. If you 
know how many fields were written, you can simply read the same number of fields, as in the 
example above. If the number of fields changes, you can write a field with a special value at 
the end of the file and check for this value after each input. If you don't know what's in the 
file, you can use the TRAP command. When the end-of-file error 136 occurs, the TRAP 
command will send you to your error routine. The routine should check that location 195 
(error status) does contain 136, and then CLOSE the file. 


Note It 

If the PRINT or PUT commands do not immediately follow the OPEN command, the motor 
stays on and garbage may be written onto the tape, making it unreadable. A solution to this 
problem is to write a dummy record of 123 blanks immediately after opening the file. The 
following statements accomplish this. 


FOR 1=1 TO 127 tPUT#l,32 JNEXT I 1PRINT #1 


When you then OPEN the file to read it, you must immediately read past this dummy record. 
An input of any string variable accomplishes this. 


DIM A$(l> JINPUT #1,A* 

Note 2? 

It is possible to transfer more than one field with each PRINT statement. However, you 
must write the EOL character after each field. 



print #i;name$;chr$(155);age 

or 

DIM CR$(1) JCR$=CHR*(155) 

print #i;name*;cr*;age 


I 
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DATA FILE PROCESSING 

An Example of CASSETTE I/O 
WBB/JB 3/82 


The following set of programs sets up and maintains a simple mailing 
list using the 410 Program Recorder, The programs show a method of storing 
data in data files on the tape. The first program initializes the file by 
reserving space for each entry. The second updates the information in the 
file. The third prints out the contents of the file. 


The key concepts illustrated are opening a data file with the OPEN 
statement, and writing to that file using the PRINT#1» statement. In this 
simple example, only one variable is written at a time, so no extra data 
separators are necessary. 


In order to update a cassette file, the complete file is read into 
memory, and stored in a long array-string. This process provides a good 
example of string manipulation, and the long-string method of keeping 
string-arrays. When the update is complete, the file is written back out to 
tape. 
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ON 


cassette 


a -tape 


3 

5 

6 


* EM ft SIMPLE Oft™ FILE 
*|S f-Y/JtJ z ' eZ .««*********‘***‘ 

REn t 1 ' ^^-w********** - „ , wP c on 

, r! 5 create a print then 

5 REM re3 + h ^ h screen, or on » R *i************** 

7 rIm ****^* $* 1 ^ 8 ** NAME^*20 ) , ANSt y for output on the cassette 

\i ss* r$ 15'^r.s 

30 FDh •*- #30 • REM of 12o return 

00 PUT *l#3*- 4ht r a n p no*tor +v s c3 rri3Qe re 

. HS “ r®" S%=1 

70 IF ANS*(1 fl lt t hEN GOTO 1 

' __ AVlPt / 1 4 1 / — |X 


then W'“ *-• file 

..ore- data. close the 
_ , c no fiort? *-* 

^ here x ********* 


• tte 


IF 

BO IF ANStd* 1 

5.W ««» - 

REM to read the n con tinue. *„,****************** .+■ 

REM. an? w ;2*® ************** input file on the 

REM ******* „ c; »:REH open ar ' irP close the file 3W3y 

OPEN *1^'°: 5; case of error. «® reCQrd 3 nd throw 

... TRAP 300- RE ^(t:REH set. the dunns^ ^ tape 
220 INPUT **' aME *«REM read a 1 screen 

230 NAMEttREN print S ^ on the printer ter) 

250 LPBIIJT NftME*-R 250 if sec file or occurs 

251 RP« ‘5^REM «et further hares ^ end-of-fll» er 

260 GOTO 230.EE no clos es the file 

241 SIS andthe error-trar does 

262 REN ano 
300 CLOSE *1 


110 
150 
160 
161 
162 
163 
200 
210 
* 7*7 0 
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1 REM CASINIT 

2 REM WBB/JB 3/B2 

REM run this proeran first to reserve file space on the tape 
REM XXXX*** ******************* ****************************** 

10 DIM NAMES < 10 0X24) , ADDRS (100*24), CITY $(100x16) , STATED ( 1 0 0x2 > , ZIP* ( 1 0 0 *5 ) 
20 DIM PH0NES< 100x8) ,BLANKS<24) 

25 REM each field is stored in a long-string variable — 

26 REM there is space for 100 records. 

30 BLANKS*'* " JREM a string of 24 spaces 

FOR 1=1 TO 100 

PRINT "INITIALIZING SPACE FOR..." JI 
NAMES ( 1*24-23 , 1x24 ) =BLANKS 
ADDRS ( 1*24-23 , 1*24 ) -BLANK* 

CITYS ( 1*16-15 , 1*16 ) —BLANKS 
STATES ( 1*2-1 , 1*2) -BLANKS 
ZIPS ( 1*5-4 , 1*5 > -BLANKS 
PHONES ( 1*8-7 , 1*8 ) -BLANK* 

NEXT I 

REM all of the records now contain the correct number of blanks — 

REM the blank records now get saved to tape 
PRINT : PRINT "PREPARE TAPE FOR WRITING , " 

PRINT "PRESS 'START' TO CONTINUE..." 

IF PEEK <53279 >06 THEN 165$ REM wait for start key 
OPEN *1 , 8 , 0 , "C l " J REM press play and record on cassette unit 
FOR 1=1 TO 100 

" ;i 
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PRINT "WRITING FILE SPACE FDR 
PRINT *1 JNAMES(I*24-23,I*24) 

PRINT *1 $ ADDRS<I*24-23, I*24> 

PRINT *1 $CITY$(I*16-15,I*16> 

PRINT *1 ?STATES(I*2-1 ,1*2) 

PRINT *1 $ ZIPS <1*5-4, 1*5) 

PRINT *1 ;PH0NES(I*8-7,I*8> 

NEXT I 
CLOSE *1 

REM the file space is now reserved 
PRINT J PRINT "REWIND THE TAPE" 

PRINT "** END OF INITIALIZATION **" 
END 


on the tape 


1 

n 




10 
0 


30 

40 

50 


REM CASSETTE UPDATE 
REM WBB/JB 3/82 

REM use this program to enter or change information in the file. 

REM xxx****************************************************************** 
PRINT CHR$ ( 125 ) J REM clear screen 
‘PRINT "ENTER OR REPLACE RECORDS" 

REM set up long-string variables 

DIM NAME* < 100*24) , ADDR( 100*24 ) , CITY* ( 1 0 0 *1 6 ) , STATE* ( 1 0 0 *2 ) , ZIP* (100*5) 
DIM PHONE* ( 100*8) , BLANK* ( 24 ) ,X*(24) 

BLANK*®" "JREM string of 24 spaces 


60 REM x*************************************** **************************** 
70 REM read in existing file from the tape 
80 PRINT "PREPARE TAPE FOR READING," 

90 PRINT "PRESS ' START ' TO CONTINUE..." 

100 IF PEEK (53279) 06 THEN 10 0 1 REM wait for start key 
110 OPEN *1 ,4 , 0 , "CJ " JREM press play on cassette unit 
120 FOR 1=1 TO 100 

130 PRINT "READING DATA FOR..."? I 
140 INPUT *1 ,X*1NAME*(I*24-23,I*24)=X* 

150 INPUT *1 ,X*:ADDR*(I*24-23,I*24)=X* 

160 INPUT *1 ,X*:CITY*(I*16-15,I*16)=X* 

170 INPUT *1,X*:STATE*(I*2-1 ,I*2)=X* 

180 INPUT ♦ 1 ,X*tZIP *(1*5-4, I*5)=X* 

190 INPUT *1 ,X*:PH0NE*(I*8-7,I*8)=X* 

200 NEXT I 

210 CLOSE *1 J REM. the string-arrays now hold the data from the saved file 
215 REM x****************************************************************** 

220 REM — update the file — 

221 REM ask user which record to look at, 


r>’7'7 
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REM then call subroutine which displays that record 


REM and replaces it with new data as entered by user. 

PRINT J TRAP 240 JREM in case of input error, keep trying 
PRINT "ITEM (1-100) (0 TO END ).♦♦"» J INPUT I 
TRAP 40000JREM turn off error trap 

IF 1=0 THEN 300JREM if no more records, go write them out 
IF I<1 OR I>100 THEN 230 JREM bad number, try again 
GOSUB 1000JREM call subroutine which displays and updates data 
GOTO 230 JREM get next record number 

REM ******************************************************************* 
REM — write the updated file back out to the tape — 

PRINT ‘PRINT "PREPARE TAPE FOR WRITING ," JREM rewind or turn over tape 
PRINT "PRESS 'START' TO CONTINUE..." 

IF PEEK (53279) 06 THEN 320 JREM wait for start key 

OPEN *1 , 8, 0 , "C J " JREM press play and record on cassette unit 

COR 1=1 TO 100 

PR lux "WRITING DATA FOR..."JI 


PRINT *dNAME$(I*24-23,I*24) 

FRINT #1 J ADlvrs ( 1*24-23 , 1*24 ) 

PRINT *1 JCITY*(I*. 6-15, 1*16) 

PRINT #1 JSTATE$(I*2-l ,1*2) 

PRINT *1 ,‘ZIP$ (1*5-4, 1*5) 

PRINT *1 JPHONE$( 1*8-7, 1*8) 

NEXT I 

CLOSE #1JREM the updated file is now saved on the tape 
PRINT J PRINT "REWIND THE TAPE" 

PRINT " ** END OF PROGRAM **" 

END 
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REM the following subroutine displays the desired record# 


I 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
IF X* 


991 REM ssks the user whether it should be changed, 

• 2 REM and performs the change if requested* 

BO PRINT J PRINT "RECORD NUMBER . . * " » I 
1010 PRINT "NAME" , NAME* ( 1*24-23 , 1*24) 

1020 PRINT "ADDRESS", ADDR* < 1*24-23 , 1*24) 

1030 PRINT "CITY", CITY*(I*16-15, 1*16) 

1040 PRINT "STATE", STATE* < 1*2-1 , 1*2) 

1050 PRINT "ZIP",ZIP*<I*5-4,I*5) 

1060 PRINT "PHONE" , PHONE* ( 1*8-7 , 1*8 ) 

1070 PRINT ‘PRINT "DO YOU WISH TO REPLACE < Y/N )««*" } ♦ INPUT X* 

1080 IF X*<>"Y" THEN RETURN 

1085 REM ******************************************************************* 
1090 REM the following section calls a subroutine which 

1091 REM gets the new data, and blank-fills if necessary, 

1092 REM so that all fields are the proper length, 

1093 REM the input field, with the blank-fill, is then 
1094 REM put into the string-array in the correct place, 

2000 PRINT "NAME", 

2005 GOSUB 3000 : NAME* ( 1*24-23 , 1*24 > =X$ 

2010 PRINT "ADDRESS", 

2015 GOSUB 3000 : ADDR* ( 1*24-23 , 1*24 > =X* 

2020 PRINT "CITY", 

2025 GOSUB 30 0 0 l CITY* ( 1*1 6-15 , 1*1 6 ) =X* 

2030 PRINT "STATE", 

2035 GOSUB 30 0 0 J STATE* ( 1*2-1 , 1*2 ) =X* 

2040 PRINT "ZIP", 

2045 GOSUB 30 0 0 J ZIP* ( 1*5-4 , 1*5 ) =X* 

« 0 PRINT "PHONE", 

5 GOSUB 3000 : PHONE* < 1*8-7 , 1*8 ) =X* 

0 RETURN 

2070 REM ****************************************************************** 
2080 REM here is the subroutine that gets the new data 

2090 REM and blank-fills if necessary 
3000 INPUT X$ 

3010 IF LEN < X$ ) <24 THEN X$ < LEN ( X* ) + 1 > “BLANK* i REM concatenate spaces 
3020 RETURN 
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REM CASSETTE PRINT 
_ REM WBB/JB 3/82 
3 REM this prograM gets the date file fro« the tape 

A REM and prints it out on a printer 

5 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

10 PRINT CHR$ ( 125 ) 5 REM clear screen 

20 PRINT "MAKE SURE YOUR PRINTER IS TURNED ON," 

30 PRINT " AND PREPARE THE TAPE FOR READING..*" 

AO PRINT "PRESS 'START' TO CONTINUE ... " 

50 IF PEEK (53279) 06 THEN 50 : REM wait for start key 
60 POKE 201»2JREM set comms print zone at 2 spaces 
70 DIM X* ( 2A ) ♦ REM only one variable is used 

OPEN *1 * A , 0 , "CJ " JREM press play on cassette unit. 

OPEN #2 ,8 , 0 t "P J " JREM open printer for output 

REM the following section gets each field fro« the tape file 
REM and prints it to the printer file 
FOR 1=1 TO 100JREM read and print 100 records 

• • ♦ T 
♦ ♦ t JL 
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PRINT "READING DATA FOR. 

PRINT *2 J "READING ..." J I 
INPUT *1,X$JPRINT *2JX* 

INPUT *1,X*J PRINT *2JX* 

input #i,x*:print *2;x*, 

INPUT *1,X*JPRINT *2 » x$ » 

INPUT *1,X$: PRINT #2JX», 

input #i,x$:print *2;x$ 

NEXT I 

PRINT "REWIND THE TAPE" 

PRINT " — END OF PROGRAM — " 
{•LOSE *1 
CLOSE *2 
END 
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•DATA FILE PROCESSING 

Storing Data on Disk 
WBB 4/82 

The ATARI 810 Disk Drive stores data on 5-1/4" floppy diskettes. A diskette is formatted 
into 40 concentric tracks, each with 18 sectors giving a total of 720 sectors. Each sector is 
128 bytes long (single density). Therefore, the total storage capacity on each diskette is 
92,160 bytes. 

The 810 Disk Drive uses a boot file to control the power-up initialization procedure. This 
usually means that the Disk Operating System File Management System (DOS FMS) is loaded 
into RAM. The DOS FMS is responsible for allocating the available sectors on a disk as 
needed for file storage. The boot file uses 3 of the 720 sectors. 

DOS maintains a directory of the files that have been created on the disk up to the maximum 
of 64 files. The files are located in the directory by having a unique name and they are 
identified by their sequential position in the directory numbered from 0-63. The directory 
takes up 8 of the 720 sectors. 

DOS maintains a bit mao of the sectors that have been allocated for file storage. When DOS 
needs to allocate a sector to a file, it uses the lowest numbered free sector as indicated in 
the bit map. This is commonly referred to as random access . The bit map takes 1 of the 720 
sectors. 

DOS uses 3 of the 128 bytes in each sector to identify the file it belongs to and the next 
sequential sector in the file. Therefore, the file storage space available to the user with 
DOS 2.0S is 707 sectors x 125 bytes = 88,375 bytes. 

OPEN 


DOS maintains a pointer for each file opened. The pointer is the location in the file the 
next I/O command will access. The OPEN command establishes a channel from the token file 
in RAM to the 810 Disk Drive. There are eight channels in the system numbered 0-7. The OS 
uses 0,6,7 at various times so you should use 1-5. There cure four modes for the OPEN 
command. 

OPEN #1,4,0, "DIFILENAME" opens a file Irf READ mode. DOS locates FILENAME in the 
directory and positions the pointer at the first byte of the file. INPUTtl or GET#1 are the 
only legal commands. 

OPEN #1,8,0>"DIFILENAME" always opens a new file in WRITE mode. DOS first searches 
the directory for FILENAME and, if it exists, deletes it. DOS then creates FILENAME in 
the directory, allocates a free sector as the first sector of the file and positions the 
pointer at the first byte of that sector. FRINT#1 or PUT#1 are the only legal commands. 

OPEN #1 ,9,0, "DIFILENAME" opens a file in APPEND mode. DOS first locates FILENAME in 
the directory. It then allocates a free sector appended to the end of the file and positions 
the pointer at the first byte of that sector. Mode 9 is write only, so FRINT#1 or FUT#1 are 
the only legal commands. 

OPEN #1,1 2,0, "DIFILENAME" opens a file in READ/WRITE mode. DOS locates FILENAME 
in the directory and positions the pointer at the first byte of the file. PRINT# 1, FUT#1, 
INFUT#1, and GET#1 are all legal commands in this mode. However, the output commands 
write over the values that are currently in the file so the user should be careful to replace 
the exact number of bytes when updating an existing field. It is not possible to append new 
data to a file in this mode. Mode 12 can also be thought of as RANDOM ACCESS mode 
because it is the only mode that supports the commands NOTE#l and POINT#l. 


CLOSE 


The CLOSE command frees the channel from the program to the device. It is always a good 
idea in the interest of good programming technique to CLOSE every file that is opened in a 
program. However, it is imperative that a file opened in update modes 8 or 9 be closed. If 
not, it is probable that the bit map or forward pointers will not be updated correctly. The 
result is an error 164, requiring the disk to be reformatted. 

PRINT/PUT 

The output commands, FRINT#N and FUT#N, transfer data from the token file to the buffer 
for the disk file. When the buffer fills up with 125 bytes, DOS writes the buffer to the file, 
allocates another free sector and clears the buffer. Two types of I/O can be used to write 
data to a file? character I/O or record I/O. 

Character I/O means that you write data one byte at a time with none of the values 
interpreted as control characters. The statement PUT #N,X transfers one ASCII byte to 

the disk file. 

Record I/O means that you write data one field at a time with the End of Line (EOL) 
character (ASCII 155) used to delimit the end of the fields. The EOL character is 
automatically generated by the PRINT statement. Therefore, to avoid having to put in your 
own delimiters, simply transfer each field on a separate PRINT statement. The PRINT 
statement should include a semicolon and not a comma (PRINT #15A$). A comma is 
interpreted as a tab, causing 10 blank spaces to be inserted in front of your data. The size 
of the field should be limited to less than 119 bytes to avoid using reserved memory space 

on page 6 of RAM. 

TNPUT/GET 

The input commands, INPUT#1 and GET#1» transfer data from the disk file to the token file. 
The data should be read from the file in the same fashion that it was written, character or 

record I/O. 

Character I/O reads one byte at a time with none of the values being interpreted as control 
codes. The GET#1,X transfers one ASCII byte from the disk file to the variable X. 

Record I/O reads one field at a time with EOL (ASCII 155) used to delimit the end of each 
field (INPUT #1,A<). Many fields can be transferred with each INPUT statement (INPUT 

*1,A$,B$,C). 


There are three ways to read all the data from the file and exit without an error. If you 
know how many fields were written, you can simply read that number of fields. If the number 
of fields varies, you can write a special value at the end of the file and check for this value 
after each input. If you don't know what's in the file, you should use the TRAP command. 
When the end-of-file error 136 occurs, the TRAP will send you to an error routine. The 
routine should check that location 195 (error status) does contain a 136, and then CLOSE the 

file. 


NOTE/PQINT 

NOTE#l»S»B stores the current sector and byte location of the pointer in the variables S 
and B. Conversely, POINT# 1,S,B moves the pointer directly to the sector and byte specified 
in the variables. These commands are used together in mode *2 to p r ovide t 
random access to the disk file. In general the procedure is NOTE#l, INPUTtl, POINT#l, 
and PRINT#1. This should only be done with fixed length records. If you update a 4-by e 
field with a 3-byte field, an extra EOL is added to the file and the number of fields is 
incorrectly incremented by 1. If you update a 4-byte field with a 5-byte field, the "f 1 
sequential field in the file is overwritten. Care should be taken +o rep-ace the exact 
number of bytes when updating an existing field. 


An Example of DISK I/O 
WBB/JB 3/82 


The following set of programs sets up and maintains a simple mailing 
list using the 810 Disk Drive. The programs provide an example of one method 
of storing data in data files. The first program sets up the file by adding 
records. The second updates the information in the file. The third prints out 
the contents of the file. 

The. key concepts illustrated are opening a data file with the OPEN 
statement, and writing to that file using the PRINT#1J statement. In this 
simple example, only one variable is written at a time, so no extra data 
separators are necessary. 

A temporary file is used to keep the updated information. When the 
update is complete, the temporary file is renamed, and the old file becomes 
the temporary file. Some error trapping is provided. 



1 REM DISKADD 

2 REM WBB/JB 4/B2 

3 REM — use this prograM to create a file# or to add new records — 

4 REM the program creates a tenporary file# adds records to it# 

• REM then deletes the permanent file and renames the temporary file 
REM so that it becomes the permanent file. 

7 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

10 PRINT CHR* < 1 25 ) « REM clear screen 
20 PRINT "THIS PROGRAM ADDS RECORDS" 

30 PRINT "FOR NEW CUSTOMERS ." i PRINT 
40 PRINT "INSERT THE PROPER DISKETTE#" 

50 PRINT "PRESS ' START ' TO CONTINUE. 

60 IF PEEK ( 53279 ) 06 THEN 60 ♦ REM wait for start key 
65 REM — set up variables and filenames — 

7 0 DIM ID*(9> # NAME* (24) #ADDR*(24> ,CITY*(16> , STATE* (2) ,ZIP*(5> , PHONE* (12) 

80 DIM FILE1* ( 1 6 > # FILE2* (16) 

90 FILE1 t="D ♦ CUSTOMER . DAT" ♦ FILE2*="D : CUSTOMER. TMP" 

95 REM — open the files — 

100 CLOSE #1JCL0SE *2JREM close any currently open files 

110 TRAP 200iOPEN *1 # 4 # 0 # FILE1 * l TRAP 40000.REM check for 'no file found' error 
120 OPEN *2#8# 0 #FILE2*:REM if no error# open write file 
130 GOTO 300JREM skip over error routine 

180 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
190 REM — error routine — 

195 REM if the file is not on this disk then create one# or replace disk 
200 PRINT CHR* (253) J "CUSTOMER FILE NOT ON THIS DISK,": PRINT : REM sound buzzer 
210 PRINT "PRESS 'START' TO TRY ANOTHER DISK-" 

220 PRINT "PRESS 'SELECT' TO CREATE ON THIS DISK-" 

230 IF PEEK(53279>=6 THEN 100.REM if start is pressed# try again 
240 IF PEEK (53279 >05 THEN 230 5 REM check for select 

« CLOSE #1 JOPEN *1 ,8#0#FILE1*:REM if creating# open write file 
PRINT #i:"ENDOFFILE":REM write file with no records 
270 CLOSE *1 :GOTO lOOtREM now that there is a file# go try again 


280 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
290 REM — transfer existing records to new file — 

300 INPUT *1,ID*:REM get record number 

305 IF ID*="ENDOFFILE" THEN 4001REM last record# go to add-record routine 
310 PRINT *2# ID*: REM transfer number to new file 
320 PRINT "TRANSFERRING TO TEMP FILE..."JID* 

330 INPUT *1 , NAME*: PRINT *2 J NAME* 

340 INPUT *1 , ADDR*:PRINT *2 # ADDR* 

350 INPUT #i#city*:print #2;city* 

360 INPUT *1, STATE*: PRINT *2 : STATE* 

370 INPUT *1 , ZIP*: PRINT #2} ZIP* 

380 INPUT *1, PHONE*: PRINT *2 # PHONE* 

390 GOTO 300:REM get next record 

395 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

396 REM — add new records to file — 

400 PRINT CHR*( 125) J "SPECIFY RECORD TO ADD" JCHR* ( 29 > : REM (move cursor down) 
410 PRINT "ID NUMBER OR ' END INPUT ID*:IF ID*="END" THEN 600 
420 PRINT "NAME. ♦ ."J : INPUT NAME* 

425 PRINT "ADDRESS. INPUT ADDR* 

430 PRINT "CITY. ♦ ."J : INPUT CITY* 

435 PRINT "STATE. .."? : INPUT STATE* 

44 0 PRINT "ZIP. . ." * t : INPUT ZIP* 



PRINT 

PRINT 


460 PRINT 


"PHONE. : INPUT PHONE* 

:PRINT "PRESS 'SELECT' TO ADD RECORD..." 
"PRESS 'OPTION' TO RE-ENTER..." 


470 IF PEEK ( 53279 ) =3 THEN 400:REM option is pressed# 


re-enter 


record 


480 IF PEEK (53279 >05 THEN 470 : REM check for select key 

485 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


4 \ 


49 0 
-495 
trr i 0 

<W° 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 


REM a****************************************************************** 
F< E M — write new record "to teMpor 3ry "file 

PRINT #2? ID* 

PRINT 12 } NAME* 

PRINT #2 i ADDR* 

PRINT #2? CITY* 

PRINT *2 t STATE* 

PRINT #2 } ZIP* 

PRINT * 2 ? PHONE* 

GOTO 400JREM 90 get wore new records 

REM x****************************************************************** 
REM — closing routine — 

PRINT *2 i "ENDOFFILE” « REM write end-of-file Marker 
CLOSE *1JCL0SE *2 

PRINT CHR$ ( 125 >; "DELETING OLD FILE..*" 

XIO 33, *1 , 0 , 0 ,FILE1*JREM delete old file 
PRINT J PRINT "RENAMING NEW FILE,*." 

XIO 32, *1, 0 , 0 ,"D 5 CUSTOMER. TMP, CUSTOMER. DAT" 

PRINT t PRINT " — END OF PROGRAM — " 

END 


the file-- 




1 REM DISK UPDATE 

2 REM WBB/JB 3/82 

3 REM — use this program to change or delete existing records in 
A REM read records frow permanent file* update temporary file* 

REM then delete old file and rename new one to be new permanent file* 

r*i rr M W W W w W w W M/ W U/ W W M/ W M/ U/ W y/ W W W U/ W W W W W W u/ w W u/ W W W 1 y/ ^ W W W W W W W W W U/ W W W W W W W W W W W W W W W ^ VV yz y/ ^ U/ 
j l t * 1 1*1 An AK AN AK ^ Ar» o • As As Av As As As As As As ^ ^ ^ ^ As • A -. 

PRINT CHR* ( 125 ) J REM clear screen 
PRINT "THIS PROGRAM CHANGES OR DELETES" 

PRINT "EXISTING RECORDS IN THE DATA FILE. "J PRINT 
PRINT "PRESS ' START' TO CONTINUE . ♦. " J PRINT 
IF PEEK <53279 >06 THEN 50 J REM wait for start key 
REM set up variables and file nanes 

DIM ID* (9) , NAME* (24) ,ADDR*<24) , CITY* (16) , STATE* (2) ,ZIP*(5) , PHONE* (12) 

DIM FILE1*( 16) ,FILE2*< 16) 

FILE1*="D J CUSTOMER ♦ DAT" J FILE2*="D J CUSTOMER «TMP" 

REM — open the files — 

CLOSE 41JCL0SE #2JREM close any files which are open 

TRAP 200:OPEN *1 , 4 , 0 , FILE1* J TRAP 40000 JREM trap f i le-not-f ound error 
OPEN 12 , B , 0 , FILE2* * REM if no error* open write file 
GOTO 300 JREM skip error routine 

1*1 y/ 

| | AS AS 

REM — error routine — 

REM if file is not on this diskette* try another one 

PRINT CHR* < 253 ) * "CUSTOMER FILE NOT ON THIS DISK*":PRINT JREM sound buzzer 
PRINT "PRESS 'START' TO TRY ANOTHER DISK..*" 

IF PEEK ( 53279 ) 06 THEN 220 JREM wait for start key 
GOTO 100 JREM try again 

REM KXXXXXXXXXXXXXXXXXXXXXIXIXIXIXXXXXXXXXXKXXXXXXXXXKXXXXXXXXXXXXXXXXX 
REM — read a record fron the old file — 

INPUT #1* ID* JREM get record nunber 
^^5 IF ID*="END0FFILE" THEN 600 JREM last record# go to closing routine 
M)0 INPUT #1 * NAME*.* ADDR* * CITY* # ST ATE* , ZIP* * PHONE* J REM read rest of record 
^W5 REM — display the record — 

PfclNT CHR* ( 125 ) J "DATA IN OLD FILE" * CHR* ( 29 ) JREM (wove cursor down) 

PRINT "ID", ID* 

"NAME", NAME* 

"ADDRESS" ,ADDR* 

"CITY" * CITY* 

"STATE" ,STATE* 

"ZIP", ZIP* 

"PHONE", PHONE* 

J PRINT "PRESS 'OPTION' TO MODIFY RECORD-" 

"PRESS 'SELECT' TO KEEP RECORD AS IS-" 

"PRESS 'START' TO DELETE RECORD-" 

IF PEEK<53279>=6 THEN 300 JREM get another record, don't save this one 
IF PEEK < 53279 ) =5 THEN 500 JREM add this record to the new file 
IF PEEK (53279) 03 THEN 390 JREM check for option key 

PS I™* lu( M# M# tAf %Af y/ AM AM 

4b. I | 

REM — Modify data in record — 

RECORD" J PRINT 


0 

20 
30 
40 
50 
60 
70 
80 
90 
95 
100 
110 
120 
130 
140 
150 
160 
200 
210 
220 
230 
240 
250 
300 

Oi, 

0 
5 
320- 
330 
335 
340 
345 


PRINT 
PRINT 
PRINT 
350 PRINT 


355 

360 

370 

375 

380 

390 

391 

392 
395 
397 
400 
410 
420 
430 
440 
450 
460 
^0 

490 

491 
495 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


J PRINT "ENTER NEW DATA FOR 


• I 


ID NUMBER. 


♦ 4 


• I 4 


J J INPUT ID* 


II ♦ 


"NAME. . . 
"ADDRESS. 
"CITY. ♦ . 
"STATE. . ♦ 


J .INPUT NAME* 


4 ♦ 


• I ♦ 


JJ INPUT ADDR* 
" J J INPUT CITY* 

JJ INPUT STATE* 


• I ♦ 


• I 


ZIP. . ."J J INPUT ZIP* 


"PHONE. 


4 4 


• I 4 


JJ INPUT PHONE* 


II 


J PRINT "PRESS 'SELECT' TO ADD RECORD... 

"PRESS 'OPTION' TO RE-ENTER..." 

IF PEEK ( 53279 ) =3 THEN 40 C J REM re-enter the data 
IF PEEK < 53279 ) 05 THEN 490 JREM check for select key 

REM rJXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 




1 • 


♦ 

* 


19 c 



REM x****************************************************************** 
REM — add the new record to the temporary file 



PRINT 

$2 

JID* 

^0 

PRINT 

#2 

J NAME* 

Wo 

PRINT 

#2 

J ADDR* 

530 

PRINT 

#2 

jcity* 

5^0 

PRINT 

*2 

; STATE* 

55 0 

PRINT 

*2 

;zip$ 

560 

PRINT 

#2 

t PHONE* 

570 

GOTO 

300 

JREM go 


580 

590 

595 

596 
600 
610 
620 
630 
6A0 
650 
66 0 
670 


REM — closing routine — 

REM write end-of-file Marker, close files, 

REM delete old file and rename new one to permanent file. 
PRINT *2J “ENDOFFILE" 

CLOSE #i: CLOSE *2 

PRINT CHR$ ( 125 )} "DELETING OLD FILE ♦ ♦ . " 

XIO 33, *1 , 0 , 0 ,FILE1*JREM delete old file 
PRINT "RENAMING TEMP TO PERMANENT FILE ♦ . ♦ " 

XIO 32, *1 , 0 , 0 , "D : CUSTOMER. TMP, CUSTOMER. DAT" 

PRINT i PRINT " — END OF PROGRAM — " 

END 




1 REM DISK PRINT 

2 REM WBB/JB 3/82 

3 — ,, se -this progran to print out the customer list fron the file — 

REM xxxxxxxxxx*xx*xxxxxxxx**xxxxxxxxxxxxxxxxxxxxxxxxxxxxx*xxx*xxxxx*xxxx* 


0 

'20 
30 
40 
50 
60 
70 
80 
90 
95 
100 


PRINT 

PRINT 

PRINT 

PRINT 


CHR* ( 125 ) i REM clear screen 


"THIS PROGRAM PRINTS ALL RECORDS" 

"FROM THE DATA FILE ON A PRINTER I PRINT 
"PRESS 'START' TO CONTINUE ..." J PRINT 
IF PEEK (53279) 06 THEN 50JREM wait for start key 
REM set up variables and file nawes 

DIM ID* (9) , NAME* (24) , ADDR* (24) , CITY* (16) , STATE* (2) ,ZIP*(5> , PHONE* (12) 
DIM FILE1*( 16) ,FILE2*( 16) 

FILE 1 *="D J CUSTOMER . DAT " J FILE2*="P J " 

REM — open the files — 


CLOSE *i:CLOSE *2JREM close any files which are 


open 

f i le-not-f ound error 
pr inter-not-r eady error 






110 TRAP 20 0 J OPEN #1 , 4 , 0 , FILE1* J TRAP 40000 JREM trap 
120 TRAP 250 : OPEN *2,8,0, FILE2* J TRAP 40000:REM trap 
GOTO 300 J REM skip error routine 

REM xx***************************************************************** 
REM — error routine , file not found — 

PRINT CHR* ( 253 ) » "CUSTOMER FILE NOT ON THIS DISK,": PRINT : REM sound buzzer 
PRINT "PRESS 'START' TO TRY ANOTHER DISK..." 

IF PEEK ( 53279 ) 06 THEN 220:REM wait for start key 
GOTO 100. REM try again 

REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

REM — error routine, printer not ready — 

PRINT CHR* ( 253 ) J "PRINTER NOT READY,": REM sound buzzer 
PRINT "PRESS 'START' TO TRY AGAIN PRINT 
IF PEEK (53279) 06 THEN 270:REM wait for start key 
GOTO 1 0 0 : REM try again 

REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

REM — read a record fron the disk file — 

INPUT *1, ID*: REM get record nunber 


130 
140 
150 
200 
210 
220 
230 
235 
240 
250 
260 
270 
80 
5 

5T90 
300 
305 
310 
315 
320 
330 
335 
340 
345 
350 
355 
360 
370 
380 
39 0 
391 
395 
397 
400 
410 
420 
430 
440 
0 
0 

470 

480 

490 

500 

510 

520 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


IF ID*="ENDOFFILE" THEN 500:REM last record, go to closing routine 
INPUT # 1 , NAME*, ADDR*, CITY*, STATE*, ZIP*, PHONE*:REM read rest of record 
REM — display the record — 

PRINT CHR* ( 125) J "DATA IN FILE" J CHR* ( 29 >: REM (Move cursor down) 

PRINT "ID" ,ID* 

"NAME", NAME* 

"ADDRESS", ADDR* 

"CITY", CITY* 

"STATE", STATE* 

"ZIP", ZIP* 

"PHONE", PHONE* 

"PRESS 'SELECT' TO PRINT RECORD..." 

"PRESS 'START' TO READ NEXT RECORD..." 

IF PEEK ( 53279 > =6 THEN 300:REM get another record 
IF PEEK (53279 >05 THEN 390 : REM check for select key 

REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

REM — print out record on printer — 

PRINT *2 1 ID* 

PRINT *2? NAME* 

PRINT *2? ADDR* 

PRINT *2J CITY* 

PRINT *2J STATE* 

PRINT *2? ZIP* 

PRINT *2? PHONE* 

GOTO 390 : REM go wait for ok to read new record 

REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

REM — closing routine — 

CLOSE tlS CLOSE *2 

PRINT CHR* ( 125) :REM clear screen 
PRINT " — END OF PROGRAM — " 


